"0","```r
plotting_objs <- ls()[grep(\"clust\", ls())]

# Note: I'm writing the cluster diagram to a pdf file, so it's easier to read. You can uncomment the pdf() and dev.off() lines to print to the screen, or just not copy those lines
pdf(file=\"output/cluster_diagrams.pdf\", height=11, width=8.5)
  par(mfcol=c(4,3), mar=c(2,4,1,1)+.01)
  for (i in 1:length(plotting_objs)){
    plot(get(plotting_objs[i]), cex=0.75, xlab=NA, sub=NA, main=plotting_objs[i], hang=-.1)
  }
dev.off()
```"
